﻿Imports cBussines
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim sdf As New Products
        Dim prod As New Product
        prod.Amount = 30
        sdf.Add(prod)
        Response.Write(prod.Amount)
    End Sub
End Class
